﻿Public Class Form1
    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
        Dim messaggio As String = ""
        Dim NL As String =
          Environment.NewLine
        Dim frutti() As String =
          {"mela", "pera", "banana",
           "mandarino", "kiwi", "pesca",
           "arancia", "limone", "cedro",
           "uva", "ciliegia", "melone",
           "anguria", "caco", "pescanoce",
           "dattero", "noce", "albicocca"}

        ' frutta che inizia per "m"
        Dim fruttiPreferiti =
          From f In frutti
          Where f.StartsWith("m")
          Select f
        For Each frutto In fruttiPreferiti
            messaggio &=
              "Frutto: " & frutto & NL
        Next
        MessageBox.Show(messaggio)

        ' tutta la frutta ordinata per nome
        messaggio = ""
        Dim tuttiFrutti =
            From f In frutti
            Order By f
            Select f
        For Each frutto In tuttiFrutti
            messaggio &=
              "Frutto: " & frutto & NL
        Next
        MessageBox.Show(messaggio)
    End Sub
End Class
